%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<% '--- conn was created in the include file
Dim pressReleaseID
Dim sql
Dim rs
pressReleaseID = Request.QueryString("id")
Set rs = CreateObject("ADODB.RecordSet")
sql = "SELECT * FROM tblPressReleases WHERE id = " & pressReleaseID & " AND prDisplay = True"
Set rs = conn.Execute(sql)
%>